Unit
lmdformA

Declaration

TLMDPaintEvent = procedure(Sender:TObject; aCanvas:TCanvas; Dest:TRect) of object;